(move-beginning-of-line): Scan properly for invis change.

diff --git a/lisp/simple.el b/lisp/simple.el
index 647a57cbe6b2bcd7c7b586f918e03b95882a2e4d..d0fecbc358602d88d4f86ab410b296f2fa296c04 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3743,7 +3743,7 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
     ;; Move to beginning-of-line, ignoring fields and invisibles.
     (skip-chars-backward "^\n")
     (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
-      (goto-char (previous-char-property-change (1- (point))))
+      (goto-char (previous-char-property-change (point)))
       (skip-chars-backward "^\n"))
 
     ;; Take care of fields.